home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh13a.d64 / security system (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  6KB  |  132 lines
  1. 100 REM *******************************
  2. 110 REM *                             *
  3. 120 REM *  C 64 SECURITY SYSTEM V3.1  *
  4. 130 REM *          25.02.86           *
  5. 140 REM *                             *
  6. 150 REM *   (C) BY BERNHARD HENLEIN   *
  7. 160 REM *                             *
  8. 170 REM *       LEHBRUNNENWEG 8       *
  9. 180 REM *       8703 OCHSENFURT       *
  10. 190 REM *                             *
  11. 200 REM *******************************
  12. 210 POKE55,0:POKE56,96:CLR:M=24576
  13. 220 PRINTCHR$(14);"[147][203]ERNAL INS [210]AM UEBERTRAGEN!"
  14. 230 PRINT:PRINT"BITTE 2 MIN. WARTEN
  15. 240 [129]I[178]0[164]8191
  16. 250 [151]M[170]I,[194](57344[170]I)
  17. 260 [130]
  18. 270 [151]M[170]904,76: [143] JMP $F72C
  19. 280 [151]M[170]905,44: [143] PRG. START
  20. 290 [151]M[170]906,247
  21. 300 [151]M[170]3289,11:[143] RAHMENFARBE
  22. 310 [151]M[170]3290,0 :[143] BILDSCHIRMFARBE
  23. 320 [151]M[170]7440,82:[143]-----
  24. 330 [151]M[170]7441,84
  25. 340 [151]M[170]7442,70:[143] MODULSTART VERAENDERN.
  26. 350 [151]M[170]7443,56
  27. 360 [151]M[170]7444,54:[143]-----
  28. 370 [151]M[170]7628,23:[143] CIA RESET
  29. 380 [151]M[170]7633,23:[143] CIA RESET
  30. 390 [153]:[153]"(null)PRITES EINTRAGEN!"
  31. 400 [129]I[178]0[164]382
  32. 410 [135] A : [151]M[170]3771[170]I,A
  33. 420 S[178]S[170]A
  34. 430 [130]
  35. 440 [139]S[179][177]28177[167][153]"ASCEHLER IN (null)PRITES":[128]
  36. 450 [153]:[153]"(null)ROGRAMM EINTRAGEN!"
  37. 460 S[178]0
  38. 470 [129]I[178]0[164]872
  39. 480 [135] A : [151]M[170]5932[170]I,A
  40. 490 S[178]S[170]A
  41. 500 [130]
  42. 510 [139]S[179][177]99851[167][153]"FEHLER IN PART II":[128]
  43. 520 [153]:[153]"VALINSCHALTMELDUNG:"
  44. 530 [153]:[153]"  **** LEN 64 (null)ECURITY (null)YSTEM  (null)3.1 ****"
  45. 540 [153]"  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  46. 550 [133]"ONON";MD$
  47. 560 [139][195](MD$)[179]37[167]MD$[178]MD$[170]" ":[137]560
  48. 570 [129]I[178]1[164]4
  49. 580 [153]:[153]"(null)ASSWORT"I" ----------"
  50. 590 [133]"ON";PW$(I)
  51. 600 [139][195](PW$(I))[179]10[167]PW$(I)[178]PW$(I)[170]" ":[137]600
  52. 610 [130]
  53. 620 [129]I[178]1[164][195](MD$)
  54. 630 [151] M[170]6486[170]I,[198]([202](MD$,I,1))
  55. 640 [130]
  56. 650 [151]M[170]6486[170]I,13
  57. 660 [129]J[178]1[164]4
  58. 670 [129]I[178]1[164][195](PW$(J))
  59. 680 K[178]K[170]1
  60. 690 [151]M[170]6688[170]K,[198]([202](PW$(J),I,1))
  61. 700 [130] I
  62. 710 [130] J
  63. 720 [153]:[153]"FERTIG!"
  64. 730 [153]:[153]"(null)EUES (null)ERNAL STEHT AB";M;"IM (null)PEICHER!"
  65. 740 [128]
  66. 750 :
  67. 760 [143] *** DATAS FUER SPRITES ***
  68. 770 [131]31,128,0,31,128,0,31,128,63,31,128,127,15,192,254,15,193,252,15,227
  69. 780 [131]248,15,231,240,7,255,224,7,255,192,3,255,128,1,255,0,1,255,0,0,255
  70. 790 [131]192,0,127,240,0,63,255,0,31,255,0,7,255,0,3,255,0,0,255,0,0,15,0
  71. 800 [131]0,0,15,0,0,255,0,3,255,0,7,255,0,31,255,0,63,255,0,127,240,0,255
  72. 810 [131]192,1,255,0,1,254,0,3,248,0,7,248,0,7,240,0,15,224,0,15,224,0,15
  73. 820 [131]192,0,15,192,0,31,128,0,31,128,1,31,128,0,31,128,0,0,240,0,0,255
  74. 830 [131]0,0,255,192,0,255,224,0,255,248,0,255,252,0,15,254,0,3,255,0,0,255
  75. 840 [131]128,0,255,128,1,255,192,3,255,224,7,255,224,15,231,240,31,199,240
  76. 850 [131]63,131,240,127,3,240,254,1,248,0,1,248,0,1,248,0,1,248,0,0,1,248
  77. 860 [131]0,1,248,128,1,248,0,1,248,0,3,240,0,3,240,0,7,240,0,7,240,0,15,224
  78. 870 [131]0,31,224,0,31,192,0,127,128,0,255,128,3,255,0,15,254,0,255,252,0
  79. 880 [131]255,248,0,255,224,0,255,192,0,255,0,0,240,0,0,0,0,0,0,0,0,0,0,0,0
  80. 890 [131]0,0,0,0,0,0,0,0,0,0,0,0,73,141,47,73,81,72,122,81,140,75,209,72,74
  81. 900 [131]77,47,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  82. 910 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,112,0,0,72,0,0,120,0,0,80,0
  83. 920 [131]0,72,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  84. 930 [143] SYSTEM DATAS
  85. 940 :
  86. 950 [131]169,251,141,40,3,169,0,141,5,212,169,240,141,6,212,169,200,141,1
  87. 960 [131]212,169,69,141,0,212,169,17,141,4,212,162,0,32,15,249,162,0,189,187
  88. 970 [131]238,157,0,48,232,208,247,189,187,239,157,0,49,232,224,128,208,245
  89. 980 [131]162,0,160,192,152,157,248,7,200,232,224,6,208,246,169,2,141,39,208
  90. 990 [131]141,40,208,141,41,208,141,42,208,169,0,141,43,208,141,44,208,141
  91. 1000 [131]29,208,141,23,208,169,159,141,0,208,141,2,208,169,125,141,1,208,141
  92. 1010 [131]7,208,169,183,141,4,208,141,6,208,169,104,141,3,208,141,5,208,169
  93. 1020 [131]168,141,8,208,169,192,141,10,208,169,115,141,9,208,141,11,208,162
  94. 1030 [131]7,160,18,24,32,240,255,169,73,160,250,32,30,171,169,63,141,21,208
  95. 1040 [131]162,13,160,13,24,32,240,255,162,131,32,15,249,162,14,160,13,24,32
  96. 1050 [131]240,255,162,149,32,15,249,162,15,160,13,24,32,240,255,162,167,32
  97. 1060 [131]15,249,173,141,2,201,4,208,249,165,203,201,1,208,243,162,14,160,14
  98. 1070 [131]24,32,240,255,162,185,32,15,249,169,0,133,198,141,254,207,162,14
  99. 1080 [131]160,15,24,32,240,255,166,198,236,254,207,240,249,169,15,141,24,212
  100. 1090 [131]169,88,32,22,231,32,65,249,169,0,141,24,212,238,254,207,174,254,207
  101. 1100 [131]224,10,208,221,160,0,173,0,221,41,40,201,40,240,18,160,10,201,32
  102. 1110 [131]240,12,160,20,201,8,240,6,160,30,197,0,240,0,162,0,189,119,2,217
  103. 1120 [131]33,250,208,9,200,232,224,10,208,242,76,133,248,169,147,32,22,231
  104. 1130 [131]169,0,141,21,208,76,44,247,162,7,160,18,24,32,240,255,169,111,160
  105. 1140 [131]250,32,30,171,169,0,141,21,208,162,14,160,15,24,32,240,255,162,199
  106. 1150 [131]32,15,249,162,100,160,255,32,65,249,202,208,248,162,0,189,192,248
  107. 1160 [131]157,0,207,232,224,253,208,245,76,0,207,173,0,221,41,239,141,0,221
  108. 1170 [131]162,0,232,208,253,162,255,120,154,216,232,142,22,208,32,163,253,32
  109. 1180 [131]80,253,32,21,253,32,91,255,88,32,83,228,32,191,227,32,68,166,162
  110. 1190 [131]251,154,169,1,160,249,162,14,32,189,255,169,1,160,15,162,8,32,186
  111. 1200 [131]255,32,192,255,176,0,169,1,32,195,255,76,226,252,32,160,15,140,24
  112. 1210 [131]212,189,79,249,240,34,32,22,231,201,32,240,23,201,13,240,19,169,161
  113. 1220 [131]32,22,231,169,157,32,22,231,32,65,249,140,24,212,32,65,249,232,76
  114. 1230 [131]15,249,160,0,140,24,212,96,160,5,206,255,207,173,255,207,208,248
  115. 1240 [131]136,208,245,96,14,146,147,32,17,18,5,32,42,42,42,42,32,195,32,54
  116. 1250 [131]52,32,211,69,67,85,82,73,84,89,32,211,89,83,84,69,77,32,32,214,51
  117. 1260 [131]46,49,32,42,42,42,42,32,13,32,32,32,32,32,32,32,32,40,67,41,32,66
  118. 1270 [131]89,32,194,69,82,78,72,65,82,68,32,200,69,78,76,69,73,78,32,13,32
  119. 1280 [131]32,32,32,32,32,32,32,32,32,32,32,32,32,32,50,53,46,48,50,46,49,57
  120. 1290 [131]56,54,32,13,13,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
  121. 1300 [131]32,45,45,45,45,32,0,158,176,192,192,192,192,192,192,192,192,192,192
  122. 1310 [131]192,192,174,146,32,0,18,221,206,207,32,197,206,212,210,193,206,195
  123. 1320 [131]197,33,221,146,32,0,18,173,192,192,192,192,192,192,192,192,192,192
  124. 1330 [131]192,192,189,146,32,0,18,32,45,45,45,45,45,45,45,45,45,45,32,0,32
  125. 1340 [131]215,197,204,204,195,207,205,197,32,0,85,83,83,71,82,79,87,76,69,82
  126. 1350 [131]87,73,87,79,71,73,84,82,85,77,74,73,77,32,75,78,79,80,70,32,74,65
  127. 1360 [131]77,69,83,32,66,79,78,68,172,18,32,32,17,157,157,157,32,32,32,32,17
  128. 1370 [131]157,157,157,157,32,32,32,32,17,157,157,157,157,32,32,32,32,17,157
  129. 1380 [131]157,157,162,162,158,0,146,32,32,32,17,157,157,157,32,32,32,32,17
  130. 1390 [131]157,157,157,157,32,32,32,32,17,157,157,157,157,32,32,32,32,17,157
  131. 1400 [131]157,157,32,32,18,0
  132.